;; Font and color related custom variables
(defvar default-theme "color-theme-inkpot") ;; default theme
(defvar default-font "Inconsolata") ;; default font

;; Check if font exists
(defun font-existsp (font)
  (case window-system
    (x
     (if (null (x-list-fonts font))
	 nil t))
    (w32
     ;; Don't know what do. Just return nil for now.
     nil)))

;; Set default font
(if (font-existsp default-font)
    (set-face-attribute 'default nil
			:family default-font :height 120))